home *** CD-ROM | disk | FTP | other *** search
/ START Magazine / START VOL 4 NO 1.st / POGO.ARC / SNOWING.POG < prev    next >
Encoding:
Text File  |  1985-11-20  |  781 b   |  68 lines
  1.  
  2.  
  3. creature flake
  4. {
  5. int ran
  6. int dsize
  7. int remX, remY
  8.  
  9. if (cnew)
  10.     {
  11.     dsize=Random(4)    
  12.     remX=cx
  13.     remY=cy
  14.     }
  15.  
  16. ran=Random(10)
  17. cx=ran-5+cdx+cx
  18. cy=Random(5)+cdy+cy
  19.  
  20. if (cx < 0 || cx > 319 || cy < 0 || cy > 199)
  21.     {
  22.     ran=Random(10)
  23.     cx=remX+ran-5
  24.     cy=remY+Random(5)
  25.     }
  26. Circle(cx, cy,dsize, 15)
  27. }
  28.  
  29.  
  30.  
  31.  
  32. function generate()
  33. {
  34. int i
  35. int initX,initY, initxSpeed,initySpeed
  36. i = 0
  37.  
  38. loop
  39.     {
  40.     initX=Random(319)
  41.     initY=Random(19)
  42.     initxSpeed=Random(10)
  43.     initySpeed=Random(10)
  44.     Spawn(flake, initX, initY, initxSpeed, initySpeed)
  45.     i = (i+1)
  46.     if (i > 30)
  47.         {
  48.         break;
  49.         }
  50.     }
  51. }
  52.  
  53.  
  54.  
  55.  
  56. ToGraphics()    ;Switch to graphics mode
  57. PreSwap()        ;Set up double buffering
  58. SetColor(15,200,200,200)
  59.  
  60. generate()
  61.  
  62. loop
  63.     {
  64.     ClearScreen()
  65.     Evolve()
  66.     Swap()
  67.     }
  68.